home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbpacket.zip
/
NETPAY.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-11-25
|
1KB
|
63 lines
REM NET PAY PROGRAM
DECLARE SUB Calculate (Wage)
DIM SHARED Net, Wage
CLS
DO
DO UNTIL Wage1 > 0
INPUT "What are your wages (annually or hourly)"; Wage1
LOOP
DO
INPUT "Is this hourly or annually wages (H/A)"; X$
SELECT CASE X$
CASE "H", "h"
DO UNTIL Hourly > 0
INPUT "How many hours a week do you work"; Hourly
LOOP
Wage = Wage1 * Hourly
EXIT DO
CASE "A", "a"
Wage = Wage1 / 52
EXIT DO
CASE ELSE
PRINT "Bad boy (or girl)!"
END SELECT
LOOP
Calculate Wage
PRINT "For a wage of $"; RIGHT$(STR$(Wage1), LEN(STR$(Wage1)) - 1); " the weekly pay is ";
PRINT USING "$$#########,.##"; Wage
PRINT "and the net pay is:";
PRINT USING "$$#########,.##"; Net
DO
INPUT "Again (Y/N)"; A$
SELECT CASE A$
CASE "Y", "y"
CLS
CLEAR
EXIT DO
CASE "N", "n"
END
CASE ELSE
END SELECT
LOOP
LOOP
END
SUB Calculate (Wage)
MRT = Wage * .0625
Fica = Wage * .0765
A = Wage * 52
IF A > 15000 THEN
FIT = Wage * .28
ELSE
FIT = Wage * .15
END IF
SubTotal = MRT + Fica + FIT
Net = Wage - SubTotal
END SUB